home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / SPLMS131.ZIP / SPLLINI.CMD < prev    next >
Encoding:
Text File  |  1996-03-18  |  973 b   |  37 lines
  1. /**/
  2. /*   If you want to learn about ini files this will help.
  3. **   Run from the directory where spllmstr.ini files exists.
  4. */
  5.  
  6. call sysini 'USER', 'SPLLMSTR', 'ALL:', 'stem.'
  7. say "stem.0 ="stem.0
  8.  
  9. do c = 1 to stem.0
  10.    say "["c"] ="stem.c " " sysini( 'USER', 'SPLLMSTR', stem.c)"="
  11. end /* do */
  12.  
  13. call sysini 'spllmstr.ini', 'spllmstr', 'ALL:', 'stem.'
  14. say "stem.0 ="stem.0
  15.  
  16. do c = 1 to stem.0
  17.    say "["c"] ="stem.c " " sysini( 'spllmstr.ini', 'spllmstr', stem.c)"="
  18. end /* do */
  19.  
  20. /**
  21. rc = charout(   , 'delete new ini entries ? ' )
  22. parse pull ans
  23. if ( ans = 'y' ) then
  24. do c = 1 to stem.0
  25.    say "["c"] ="stem.c " " sysini( 'spllmstr.ini', 'spllmstr', stem.c)"="
  26.    if ( c > 4 ) then
  27.        sysini( 'spllmstr.ini', 'spllmstr', stem.c, 'DELETE:')
  28. end /* do */
  29. **/
  30.  
  31. RETURN
  32. call sysini 'USER', 'SPLLMSTR', 'DELETE:'
  33.  
  34. call sysini 'USER', 'SPLLMSTR', 'program_path', 'D:\CMDS\'
  35. call sysini 'USER', 'SPLLMSTR', 'words_path', 'D:\spelling\'
  36.  
  37.